MacFormat 1997 March/macformat-048.iso/Demos/Musee d'Orsay/ORSAY/DATAOR/VRDEJ.DXR/00008.ls

Text File | 1996-06-17 | 324 b | 24 lines

on mouseDown
  quit()
end

on wait wichtime
  set timedeb to the timer
  repeat while (the timer - timedeb) < (wichtime * 60)
    if the mouseDown then
      quit()
    end if
  end repeat
end

on startMovie
  cursor(200)
  preLoadCast(1)
end

on idle
  if not soundBusy(1) then
    sound playFile 1, "GENERIQ"
  end if
end